home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1996 June / EnigmA AMIGA RUN 08 (1996)(G.R. Edizioni)(IT)[!][issue 1996-06][EARSAN CD VII].iso / earcd / utildsk / fixcdid.lha / FixCDID.rexx < prev   
OS/2 REXX Batch file  |  1996-05-15  |  2KB  |  60 lines
  1. /*********************************************************
  2. **                                                      **
  3. **      FixCDID.rexx V1.0 -- Fixes a CD ID directory    **
  4. **                                                      **
  5. **********************************************************
  6. **
  7. **      (C) 1996 Richard Körber -- All Rights Reserved
  8. **      E-Mail: rkoerber@tfh.dssd.sub.org
  9. **
  10. *********************************************************/
  11.  
  12. Options Results
  13. Options FailAt 6
  14.  
  15. Shell
  16. Say "-- FixCDID V1.0 -- (C) 1996 Richard Körber"
  17. Say
  18. Say "Getting file list, please be patient..."
  19. 'C:list NOHEAD QUICK TO t:idlist'
  20. Say
  21. counter = 0
  22.  
  23. IF Open('list','t:idlist','read') THEN
  24. DO
  25.   DO FOREVER
  26.     filename = ReadLn('list')
  27.     IF ~Eof('list') THEN
  28.     DO
  29.       uppername = Upper(filename)
  30.       IF Left(uppername,2) = 'ID' THEN
  31.       DO
  32.         IF uppername ~= filename THEN
  33.           'C:rename QUIET "'||filename||'" AS "'||uppername||'"'
  34.         IF Open('file',uppername,'read') THEN
  35.         DO
  36.           cdname = Compress(ReadLn('file'),'"')
  37.           cdname = cdname||': '
  38.           cdname = cdname||Compress(ReadLn('file'),'"')
  39.           CALL Close('file')
  40.           Say uppername||': '||cdname
  41.           'C:filenote QUIET "'||uppername||'" COMMENT "'||cdname||'"'
  42.           counter = counter + 1
  43.         END
  44.       END
  45.       ELSE Say '** WARNING: '||filename||' is NOT an ID file!'
  46.     END
  47.     ELSE BREAK
  48.   END
  49.   CALL Close('list')
  50. END
  51.  
  52. Say
  53. Say "Number of CD entries:" counter
  54.  
  55. 'C:delete QUIET t:idlist'
  56. Shell
  57. Exit
  58.  
  59.  
  60.